home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / tautobtn / examp1.pas < prev    next >
Pascal/Delphi Source File  |  1996-04-08  |  2KB  |  93 lines
  1. unit examp1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, AutobtnF, Autobtn;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Edit1: TEdit;
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     Label3: TLabel;
  15.     Image3: TImage;
  16.     Image1: TImage;
  17.     Image2: TImage;
  18.     Bevel1: TBevel;
  19.     Label4: TLabel;
  20.     Label5: TLabel;
  21.     Label6: TLabel;
  22.     Memo1: TMemo;
  23.     Memo2: TMemo;
  24.     Label7: TLabel;
  25.     Label8: TLabel;
  26.     Label9: TLabel;
  27.     Edit2: TEdit;
  28.     BitBtn1: TBitBtn;
  29.     FlashChk: TCheckBox;
  30.     FlashButton1: TFlashButton;
  31.     autoButton1: TautoButton;
  32.     autoButton2: TautoButton;
  33.     Image4: TImage;
  34.     autoButton3: TautoButton;
  35.     Image5: TImage;
  36.     Label10: TLabel;
  37.     Label11: TLabel;
  38.     Image6: TImage;
  39.     Label12: TLabel;
  40.     procedure autoButton1Click(Sender: TObject);
  41.     procedure autoButton3Click(Sender: TObject);
  42.     procedure Edit2Change(Sender: TObject);
  43.     procedure BitBtn1Click(Sender: TObject);
  44.     procedure FlashChkClick(Sender: TObject);
  45.   private
  46.     { Private declarations }
  47.   public
  48.     { Public declarations }
  49.     clickCount: longInt;
  50.   end;
  51.  
  52. var
  53.   Form1: TForm1;
  54.  
  55. implementation
  56.  
  57. {$R *.DFM}
  58.  
  59. procedure TForm1.autoButton1Click(Sender: TObject);
  60. var
  61.   st: string;
  62. begin
  63.   inc(clickCount);
  64.   str(clickCount,st);
  65.   edit1.text:=st;
  66. end;
  67.  
  68. procedure TForm1.autoButton3Click(Sender: TObject);
  69. begin
  70.   autoButton2.displayAlt:=not autoButton2.displayAlt;
  71. end;
  72.  
  73. procedure TForm1.Edit2Change(Sender: TObject);
  74. var
  75.   interval,
  76.   errCode: integer;
  77. begin
  78.   val(edit2.text,interval,errCode);
  79.   flashButton1.FlashInterval:=interval;
  80. end;
  81.  
  82. procedure TForm1.BitBtn1Click(Sender: TObject);
  83. begin
  84.   close;
  85. end;
  86.  
  87. procedure TForm1.FlashChkClick(Sender: TObject);
  88. begin
  89.   flashButton1.flash:=flashChk.checked;
  90. end;
  91.  
  92. end.
  93.